package ObjC;
use Moo;
use MooX::Cmd;
use MooX::Options;
use Types::Standard qw(Str);
use Modern::Perl;
extends ('ObjF');
with 'ObjM';

option y => (
  is => 'rw',
  isa => Str,
  default => 2,
);
=pod
sub BUILD {
  print "This is objc build start\n";
  my $self = shift;
  if ($self->has_x2) {
    print "x2 attribute set\n";
  } else {
    print "x2 attribute not set\n";
    $self->x2(50);
  }
  print "This is objc build done\n";
}
=cut
1;
